home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Education / T-Z / WorldCap1.4 Demo.cpt / WorldCap© 1.4 Demo ƒ / EuroCap 1.4© / card_4360.txt < prev    next >
Text File  |  1992-10-31  |  4KB  |  180 lines
  1. -- card: 4360 from stack: in.4¬©
  2. -- bmap block id: 4684
  3. -- flags: 4000
  4. -- background id: 2641
  5. -- name: Menu
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global capdata,corcapitals,corcountries
  9.   lock screen
  10.   put empty into capdata
  11.   put empty into corcapitals
  12.   put empty into corcountries
  13.   hide cd field "Eurocapdata"
  14.   get cd field "Eurocapdata"
  15.   put it into capdata
  16.   set cursor to none
  17.   repeat with h=1 to number of card buttons
  18.     set the hilite of cd btn h to false
  19.   end repeat
  20.   unlock screen
  21.   set cursor to none
  22.   repeat until the mouseclick
  23.     repeat with h = 1 to number of card buttons
  24.       set the hilite of cd btn h to true
  25.       wait 2 seconds
  26.       set the hilite of cd btn h to false
  27.       if the mouseclick then
  28.         set the hilite of cd btn h to false
  29.         send mouseup to cd btn h
  30.       end if
  31.     end repeat
  32.   end repeat
  33. end opencard
  34.  
  35.  
  36.  
  37. -- part 9 (button)
  38. -- low flags: 00
  39. -- high flags: 0000
  40. -- rect: left=87 top=80 right=136 bottom=430
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: WorldCap Menu
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   go cd 1 of stack "1.WorldCap 1.4¬© Gateway"
  52. end mouseUp
  53.  
  54.  
  55. -- part 1 (button)
  56. -- low flags: 00
  57. -- high flags: 0000
  58. -- rect: left=21 top=148 right=188 bottom=490
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Capital to Country
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   visual effect venetian blinds very slowly
  70.   go to card id 5318
  71. end mouseUp
  72.  
  73.  
  74.  
  75.  
  76. -- part 2 (button)
  77. -- low flags: 00
  78. -- high flags: 0000
  79. -- rect: left=21 top=196 right=235 bottom=490
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: Country to Capital
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   visual effect venetian blinds very slowly
  91.   go to card id 2873
  92. end mouseUp
  93.  
  94.  
  95.  
  96.  
  97. -- part 3 (button)
  98. -- low flags: 00
  99. -- high flags: 0000
  100. -- rect: left=146 top=244 right=292 bottom=386
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: New Button
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   doMenu "Home"
  112.   set the rect of this cd to 0,0,512,342
  113.   show menubar
  114.   show titlebar
  115.   exit to HyperCard
  116. end mouseUp
  117.  
  118.  
  119.  
  120.  
  121. -- part 6 (field)
  122. -- low flags: 84
  123. -- high flags: 0007
  124. -- rect: left=0 top=0 right=337 bottom=408
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 0
  128. -- font id: 3
  129. -- text size: 10
  130. -- style flags: 0
  131. -- line height: 13
  132. -- part name: Eurocapdata
  133.  
  134.  
  135. -- part contents for card part 6
  136. ----- text -----
  137. Albania,empty,Tirane,Tirana
  138. Andorra,empty,Andorra,Andorra la Vella
  139. Austria,empty,Vienna,empty
  140. Belgium,empty,Brussels,empty
  141. Bosnia-Hercegovina,Bosnia-Herzegovina,Sarajevo,empty
  142. Bulgaria,empty,Sofia,empty
  143. Byelarus,Belarus,Minsk,empty
  144. Croatia,empty,Zagreb,empty
  145. Czechoslovakia,empty,Prague,empty
  146. Denmark,empty,Copenhagen,empty
  147. Estonia,empty,Tallinn,empty
  148. Finland,empty,Helsinki,empty
  149. France,empty,Paris,empty
  150. Germany,empty,Berlin,empty
  151. Great Britain,United Kingdom,London,empty
  152. Greece,empty,Athens,empty
  153. Hungary,empty,Budapest,empty
  154. Iceland,empty,Reykjavik,empty
  155. Ireland,empty,Dublin,empty
  156. Italy,empty,Rome,empty
  157. Latvia,empty,Riga,empty
  158. Liechtenstein,Lichtenstein,Vaduz,empty
  159. Lithuania,empty,Vilnius,empty
  160. Luxembourg,Luxemburg,Luxembourg,Luxemburg
  161. Macedonia,empty,Skopje,empty
  162. Malta,empty,Valletta,Valetta
  163. Moldova,empty,Kishinev,Chisinau
  164. Monaco,empty,Monaco,empty
  165. Montenegro,empty,Titograd,empty
  166. the Netherlands,Netherlands,Amsterdam,empty
  167. Norway,empty,Oslo,empty
  168. Poland,empty,Warsaw,empty
  169. Portugal,empty,Lisbon,empty
  170. Romania,Rumania,Bucharest,empty
  171. Russia,empty,Moscow,empty
  172. San Marino,empty,San Marino,empty
  173. Serbia,empty,Belgrade,empty
  174. Slovenia,empty,Ljubljana,empty
  175. Spain,empty,Madrid,empty
  176. Sweden,empty,Stockholm,empty
  177. Switzerland,empty,Bern,empty
  178. Turkey,empty,Ankara,empty
  179. Ukraine,empty,Kyiv,Kiev
  180. Vatican City,empty,Vatican City,empty